10 DIMM$(100),N$(3500),N(3500):P=0:X=1:A=0
11 PRINTCHR$(8):POKE53281,7:POKE53272,20:GOTO280
15 N(P)=DN:E=LEN(M$(J)):RETURN
20 OPEN10,4,10:PRINT#10:CLOSE10:RETURN
30 GETGE$:IFGE$<>"J"ANDGE$<>"N"THEN30
40 RETURN
60 PRINT"[197]INGABE RICHTIG ?"
70 GOSUB30
90 RETURN
100 OPEN15,C,15:INPUT#15,AA,BB$,CC,DD
110 IFAA<>0THENPRINT"              F E H L E R  !           ":GOTO130
120 RETURN
130 PRINT,AA;BB$;CC;DD
140 GOSUB150:CLOSE2:CLOSE3:CLOSE15:RETURN
150 POKE198,0:WAIT198,1:POKE198,0:RETURN
160 INPUT" [198]LOPPY-[193]DRESSE (8/9)";C$
170 C=VAL(C$):IFC<>8ANDC<>9THENPRINT"[145][145][145][145]":GOTO160
185 GOSUB60:IFGE$="N"THENPRINT"[145][145][145][145][145][145][145]":GOTO160
190 PRINT" [194]ITTE [196]ISK IN [204]AUFWERK";C;"EINLEGEN":PRINT" UND <[210][197][212][213][210][206]> DRUECKEN !"
200 GETC$:IFC$<>CHR$(13)THEN200
210 RETURN
220 W=PEEK(768):OPEN1,B:POKE768,185:PRINT#1:CLOSE1:POKE768,W:IFST<>-128THENY=0:RETURN
230 IFY=2THENY=0:GOTO390
240 PRINT"  [194][201][212][212][197] [218][213][197][210][211][212] [196][210][213][195][203][197][210] [197][201][206][211][195][200][193][204][212][197][206] !":GOSUB150:Y=Y+1:GOTO220
250 W=PEEK(768):POKE768,185:OPEN1,C,15,"I":CLOSE1:POKE768,W:IFST<>-128THENY=0:RETURN
260 IFY=2THENY=0:GOTO500
270 PRINT"  [194][201][212][212][197] [204][193][213][198][215][197][210][203] ";C;" [197][201][206][211][195][200][193][204][212][197][206] !":GOSUB150:Y=Y+1:GOTO250
280 PRINT"[144][147]            DIRECTORY-LISTE"
290 PRINT"    (DRUCK MIT  SEIKOSHA   SL-80VC)"
300 PRINT" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
310 PRINT" [194] BY     T I G E R - C R E W         [194]"
320 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]":GOSUB150:GOTO650
330 PRINT "[147]    [196]RUCKER EINGESCHALTET ?? "
340 GOSUB150
350 PRINT" [144][196]RUCK   IN [199]ROSSBUCHSTABEN >[199]<"
360 PRINT" ODER    IN [203]LEINBUCHSTABEN >[203]<"
370 GETI$:IFI$<>"K"ANDI$<>"G"THEN370
380 IFI$="K"THENA=7
390 PRINT" [196]RUCKERADRESSE (4/5/6)";
400 GETC$:IFC$<>"4"ANDC$<>"5"ANDC$<>"6"THEN400
410 B=VAL(C$):PRINTB:GOSUB220
420 PRINT"  [195] [146] [207][206][196][197][211][197][196]":PRINT"ODER":PRINT"  [206] [146] [207][210][205][193][204] ?"
430 GETW$:IFW$<>"C"ANDW$<>"N"THEN430
440 IFW$="C"THENOPEN13,4,13:PRINT#13
450 OPEN4,B,A:CMD4
460 O=1:FORU=1TOT
470 PRINTSPC(10)N$(U);SPC(30-LEN(N$(U)))N(U):O=O+1
480 IFO=65THENFORC=1TO7:PRINT" ":NEXT:O=1
490 NEXT:FORC=OTO71:PRINT" ":NEXT:PRINT#4:CLOSE4:IFW$="C"THENCLOSE13:GOSUB20
491 PRINT"[147] [144][201]ST DER [196]RUCK IN [207]RDNUNG ?"
492 GOSUB30
493 IFGE$="N"THENPRINT"[147]":GOTO350
495 RETURN
500 GOSUB160
510 GOSUB250:POKE53281,8:PRINT"[147][144]      [194]ITTE WARTEN !                    "
520 PRINT" [196]IRECTORY WIRD GELESEN !"
530 OPEN3,C,0,"$":GET#3,X$,X$:K=1:SU=1:GOSUB100:IFSU=1THENSU=0:IFAA<>0THEN510
540 GET#3,X$,X$,L$,H$:IFX$=""THEN570
550 GET#3,A$:IFA$<>""THENM$(K)=M$(K)+A$:GOTO550
560 K=K+1:GOTO540
570 CLOSE3:CLOSE15:K=K-1
571 PRINT"[147]   [196][201][210][197][195][212][207][210][217] :"
580 FORJ=1TOK:PRINTM$(J):FORE=15TOLEN(M$(J))
590 IFMID$(M$(J),E,5)=" PRG "THENP=P+1:N$(P)=LEFT$(M$(J),LEN(M$(J))-(28-E)):GOSUB15
600 NEXTE
610 NEXTJ:GOSUB150:PRINT"[147]":POKE53281,0:POKE646,7:PRINT"  [196][193][212][197][201]-[201][206][200][193][204][212] :"
620 FORJ=XTOP:PRINTN$(J);N(J)
630 NEXT:GOSUB150:X=P+1
632 FORJ=1TOK:M$(J)="":NEXT
640 RETURN
650 POKE53272,23:POKE53281,0:PRINT"[147][155] [196][193][212][197][201]  [197] [146] [201][160][206][160][210][160][201][160][195][160][200][160][212][160][197][160][206]":PRINT"   ODER"
660 PRINT" [196][193][212][197][201]  [193] [146] [213][160][211][160][199][160][197][160][194][160][197][160][206] ?"
670 GETED$:IFED$<>"E"ANDED$<>"A"THEN670
671 IFED$="E"THENPRINT"  [197][201][206][210][201][195][200][212][197][206] [146]":GOSUB60:IFGE$="N"THEN650
672 IFED$="A"THENPRINT"  [193][213][211][199][197][194][197][206] [146]":GOSUB60:IFGE$="N"THEN650
680 IFED$="A"THEN1000
690 PRINT"[147]";
700 INPUT"[196]ISKETTEN-[206]UMMER ";DN$:GOSUB60:IFGE$="N"THEN700
710 DN=VAL(DN$)
720 GOSUB500
730 POKE53281,5:PRINT"[147] [144][206]OCH EIN [196]IR. LESEN ? "
735 PRINT"[198][210][197][201][197] [197][201][206][212][210][193][197][199][197]:";3000-P
740 GOSUB30
750 IFGE$="J"THEN690
760 POKE53281,2:PRINT"[147][158]    [197] [206][160][196][160][197][160][146] - [194]IST [196]U SICHER ?"
770 GOSUB30
780 IFGE$="N"THENPOKE53281,5:GOTO690
790 POKE53281,7:POKE646,0
800 PRINT"[147] [206] [146][197][160][213][160][197]  [196]ATEI":PRINT"   ODER":PRINT" [196] [146][193][160][212][160][197][160][201]  ERWEITERN ?"
810 GETDA$:IFDA$<>"N"ANDDA$<>"D"THEN810
820 IFDA$="N"THENGOSUB160:GOTO930
830 PRINT"[211]OLL EINE MIT DER '[212][201][199][197][210]-[196][193][212][197][201]'":PRINT"EINGERICHTE [196]ATEI ERWEITERT WERDEN ?"
840 GETTD$:IFTD$<>"J"ANDTD$<>"N"THEN840
850 IFTD$="N"THEN890
860 INPUT"[147] [144] [196]ATEI-[206]AME  $[157][157][157]";NA$
861 IFNA$="$"THENGOSUB1240:GOTO860
862 GOSUB60:IFGE$="N"THEN860
870 GOSUB160:OPEN2,C,2,NA$+",S,A":SV=1:GOSUB100:IFSV=1THENSV=0:IFAA<>0THENPRINT"[147]":GOTO860
880 GOTO940
890 INPUT"[147] [196][193][212][197][201]-[206][213][205][205][197][210]  $[157][157][157]";DT$
891 IFDT$="$"THENGOSUB1240:GOTO890
892 GOSUB60:IFGE$="N"THEN890
900 GOSUB160
910 OPEN2,C,2,"DISK-DATEI "+DT$+",S,A":SV=1:GOSUB100:IFSV=1THENSV=0:IFAA<>0THENPRINT"[147]":GOTO890
920 GOTO940
930 OPEN2,C,2,"DISK-DATEI 1,S,W":SV=1:GOSUB100:IFSV=1THENSV=0:IFAA<>0THEN800
940 FORJ=1TOP
950 IFN$(J)=""THENN$(J)="*":N(J)=0
960 PRINT#2,N$(J)
970 PRINT#2,N(J)
980 NEXT
990 CLOSE2:CLOSE15:PRINT"[147][144][206]EUSTART MIT '[210][213][206]' !":END
1000 POKE53281,12:INPUT"[147] [144] [196]ATEI-[206]AME  $[157][157][157]";DF$
1010 IFDF$="$"THENGOSUB1240:GOTO1000
1020 GOSUB60:IFGE$="N"THEN1000
1030 GOSUB160:OPEN2,C,2,DF$+",S,R":SV=1:GOSUB100:IFSV=1THENSV=0:IFAA<>0THEN1000
1040 T=1
1050 INPUT#2,N$(T)
1060 INPUT#2,N(T)
1070 IFST<>64THENT=T+1:GOTO1050
1080 CLOSE2:CLOSE15
1090 PRINT"[147][144][193]USGABE AUF  [194] [146] [201][160][204][160][196][160][211][160][195][160][200][160][201][160][210][160][205]":PRINT"   ODER"
1100 PRINT"             [196] [146] [210][160][213][160][195][160][203][160][197][160][210] ?"
1110 GETAU$:IFAU$<>"B"ANDAU$<>"D"THEN1110
1111 IFAU$="B"THENPRINT"  [194][201][204][196][211][195][200][201][210][205] [146]":GOSUB60:IFGE$="N"THEN1090
1112 IFAU$="D"THENPRINT"  [196][210][213][195][203][197][210] [146]":GOSUB60:IFGE$="N"THEN1090
1120 IFAU$="D"THENGOSUB330:GOTO1200
1130 PRINT"[147]":O=0:FORU=1TOT
1140 PRINT"  ";N$(U);SPC(30-LEN(N$(U)))N(U):O=O+1
1150 IFO=22THENO=0:GOSUB150:PRINT"[147]";
1160 NEXT:GOSUB150
1170 PRINT"[147] [196]ATEI DRUCKEN ?"
1180 GOSUB30
1190 IFGE$="J"THENGOSUB330
1200 PRINT"[147][206]OCH EINE [196]ATEI AUSGEBEN ?"
1210 GOSUB30
1220 IFGE$="J"THENRUN
1230 PRINT" [158][206]EUSTART MIT '[210][213][206]' !":END
1240 PRINT"[147]":OPEN1,8,0,"$":POKE781,1:SYS65478:GETA$,A$:E$=CHR$(0)
1250 GETA$,A$,H$,L$:IFSTTHENSYS65484:CLOSE1:GOTO1290
1260 PRINTASC(H$+E$)+256*ASC(L$+E$);
1270 GETA$,B$:IFA$THENPRINTA$B$;:GOTO1270
1280 PRINTA$:GOTO1250
1290 GOSUB150:PRINT"[147]":RETURN